home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 71
/
MOBICLIC 71.ISO
/
mac
/
DATA
/
COMMUN
/
temp0001
/
00259_Script_GESTION_BTON_GO
< prev
next >
Wrap
Text File
|
2004-12-05
|
1KB
|
45 lines
property pdizsprite,pdizspriteNo, pdizguyname
global gpiste_Go, gpiste_Video, gL_EtatBtons, gpiste_Pause
-----------------------------
on beginSprite me
pdizspriteNo = me.spriteNum
pdizsprite = sprite(pdizspriteNo)
pdizguyname = pdizsprite.member.name
gpiste_Go = pdizspriteNo
end
------------------
on mouseEnter
if the pauseState = 1 then exit
cursor 280
pdizsprite.member = pdizguyname&"_R"
updateStage
end
-----------------
on mouseLeave
if the pauseState = 1 then exit
cursor -1
case(gL_EtatBtons[2]) of
0:
case(gL_EtatBtons[3]) of
1:
nothing
0:
puppetSprite pdizspriteNo, FALSE
end case
1:
puppetSprite pdizspriteNo, FALSE
end case
updateStage
end
-------------
on mouseUp
if the pauseState = 1 then exit
if soundBusy(1) then puppetSound 1, FALSE
if soundBusy(3) then puppetSound 3, FALSE
sprite(gpiste_Go).member = "BTON_GO_R"
puppetSprite gpiste_Pause, FALSE
gL_EtatBtons = [0,0,1,0]
sprite(gpiste_Video).movieRate = 1
updateStage
end
-------------